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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS tt ya UNDER A LICENSE AND MAY BE USED AND conics 
ONLY Ne "OE THE, ABOVE THE TERMS OF SUCH LICENSE AND WITH THE 

ION OF THE ove COPY Gut NOTICE. THIS SOFTWARE OR ANY OTHER 
sone has ad MAY NOT Be P D 


I 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eonPokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: -sbttl Program description 
3 Facility 
; 3 LIBSCALL_IMAGE 
5 ; Abstract 
$ : This procedure merges a specified image into the PO 
8 3 region and calls it at its transfer address. On return 
; from the image, this procedure exits with the final 
re 3 status from the image. This procedure mer be called 
41 ; more than once for the same image since the images will 
r¢ ; be retained in memory and simply re-entered on subseqeuent 
0 rh ; calls. The image must be PIC and re-entrant. 
09 e2 : Environment 
09 ‘3 ; Native mode, User mode, Shared Library routines 
099 3 ; Author 
099 1: Tim Halvorsen, February 1980 
8 $ : Modified by 
$09 5: v03-003 BLS0296 Benn Schreiber 7-APR-1984 
3208 28 3 Correct call to Lib$get_vm 
0000 «58: v03-002 ywT0112 Jim Teague 18-Apr-1983 
44 2B 3 Add LIBSADR_IMAGE entry point. 
0000 61: v03-001 BLS0195 Benn Schreiber 19-Nov-1982 
000 $6 : Add LIBSMAP_IMAGE entry point. 
000 65 ; 
000 64 ;-- 
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§ -sbttl Symbol Definitions 


§ : Symbol Defintions 


‘ Sihddef ; image header definitions 
4 Sihadef ; image activation transfer array 
Siacdef ; image activator flags 
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-sbttl Storage definitions 


AX/VMS 
VMSLIB.S 


SREIEAL 


v04-00 
ALL IMAGE .MAR; 1 


; initialize List head to empty 


, -psect _lLibSdata,noexe,wrt,pic 
; Writable storage definitions 
list_head: 

. lon 0 

-psect _libScode,exe,nowrt,pic,shr 
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-sbttl LibSadr_image 


This procedure nope on image into PO space end returns the 
base address of the image to the caller. R6 is used as a 
Logical flag -- if 1, then refyen base address of image. 
Note that this entry point will always set r6 -- other 
entry points will clear it. 


Inputs: 
= Address of descriptor of image file specification 


4(ap) 
#iep) = Address of descriptor of default file specification 
2(ap) = Address of longword to return image base address 
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9 
! Outputs: 
0 3 : RO = Status returned by SIMGACT 
OF FC 6 1 sentry han yy image,- 
0 1 “m<r2,r3,74,75,76,r7,r8,r9,r10,r11> 
0 10 ifnowrt #4 ai2(ap) ,accvio ; puke if can't write base address 
5B D4 0009 £10 clrl rif 3; just activate - don't call 
56 01 00 00 10 movl #1,°6 ; want base address, not transfer address 
16 «11 + trb do_image ; branch to common processing 
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-sbttl LibSmap. image 


This procedure maps an image into PO space and returns the 
transfer address of the image to the caller. 


Inputs: 


4(ap) = Address of descriptor of image file specification 
Siep) = Address of descriptor of default file specification 
2(ap) = Address of longword to return transfer address 


Outputs: 
RO = Status returned by SIMGACT 


entry LibSmap_image,- 
4 Ancr2 r3,reers.r6.r7.r8.r9 r10,r11> 

iflag to image activate only 

ibranch if unable to write result 

inot interested in base address 

zbranch to common processing 


clrl rii 

ifnowrt #4,812(ap),accvio 
clr r6 

brb do_image 
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-sbttl LibScall_image 


This procedure merges a specified image into the PO 


region and calls it at its transfer address. On return 
from the nage. fh S procedure exits with the final 
status from the ima 


? - This prececyre may be called 

more than once for the same image since the images will Th 
be retained in memory and simply re-entered on subseqeuent 
calls. The image must be PIC and re-entrant. 


Inouts: 


4(ap) = Address of descriptor of image file specification 
(ap) = Address of descriptor of defauit file specification 
(ap) = Address of eroynent list to image Spgssed to image 
as the /th ) 


argument -=- (ap 


Outputs: 
r0 = Status returned by image or by SIMGACT 


-enabl Lsb 


entry LibScall_image,- 
: serene? or6,r7,78,r9,010,r11> 


ss ts sk tt 
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SSNS SSNS DDD DDD DDD TTT BB BB BE EWI 
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ma a ed a 8 ts a tt a a a  “ ss ss os 1 4 tt 


5B O01 00 movi #i,rii ; flag to call image also 
56 «4 4 ¢ r6 ; don"t want image base address 
o_image: 
5A QO000000'EF 9€ _ mova List _head,r10 ; 710 = Address of section List head 
ifnord #8,a%(ap),accvio ; branch if unable to read descriptor 
52 048 7D movg a4ap),r2 ; get descriptor of image name 
> 3¢ movzwl r2,r ; and isolate length from it 
ifrd r2,(r3),10$ ; branch if have read access 
50 0000°8F . : accvio: novewt #ss$_accvio,r0 ; cannot access descriptor 
re 
0B3 30 0047 : 108: bsbw search mapped 3; search mapped image List 
68 50 =€8 49k : blbs r0,20$ ; if found, don't map it 
OU 3 
0040 § 3 this is the first time we have invoked this image. 
‘snk 5 merge the image into existing pO address space. 
ue 3 
0040 } ifnord #8,88(ap).accvio ; branch if unable to read descriptor 
7E _ 08 e 7D 0054 0 mova a8 ap),-(sp) ; put default descriptor on stack 
7E 7D 58 1 movg r2,-(sp) 3 put input descriptor on stack 
43 2 7D 2 § mova #1,-(sp) ; ppec' ty po region 
51 00000 00 é p movi = #542,F : Length of image activator work area 
D6 4 bsbw a} Logate ; allocate a page for 
7 D D6 5 mov r0,r ; save address of work area 
1 we. 94 § movl sp.rl 3 get address stack 
D6E Simgact_s nenontiet} - ; merge image into address space 
bE 8 dflnam=16(r15,- ; using supplied default as default 
bE hdrbuf=(r7),- ; address of work area 
bE 0 ingctl=#iac$m_merge! iac$m_expreg,- ; merge into region 


b -@ 
CALL ] MAGE Merge and call image 16-SEP-1984 02:16: AX/VMS Macro Vv04-00 Pa = 
yoseooo Libgcall image Bree er 1obe Oeisbsas LUMSL TO. CRETCALC IMace.mar:1 2% (8, 
inadr=(r1),- ; address range to map into 
E retadr= (ri) address fo Return renge to 
58 50 €9 pibe rO,maperr branch if error 
1 ti perform address relocation 


Ss 
blbc ro -mggerr 
blbc r6,1 
movl (sp) re 
15$: movq (r7),¢r 
movzwl ihd$w_activoff(r 
movab ihaSl_tfradri(r8 


on't need image base address 
need base address - save it 

r§ = address of ihd theeder desc) 

r9 = address of ifd (fil 

on9 get offset to activation data 

CrOJ,r1 ; address of transfer address array 


quit if error occurred 
d 


e desc) 


bsbb a G_mapped ; add to mapped image list 
addl # ; deallocate descriptors 
blbc ré, ; don't want base address - continue 
mov l r5,a12(ap) ; write saved base address 
movl -r0 3; success 
ret 
; call the image 
208: movqg (r7),r8 ; address of ihd (image header desc) 
C movzwl ihdsvaactivor tics) rg ; get offset to activation data 
movab iha$l_tfradri(r8)Cr0J,r1 ; address of transfer address array 
1A 5B OC blbc r11,60$ : branch if map_image call 
5D OD pushl ff ; save FP from destruction 
Oc AC OD pushl 13 Cap) ; address of user argument List 
0 DD 8 pushl # : no cli option flags 
20 A D OQOOCA pushl ihd$l_lnkflags(r8) i pass thru Link option flags 
D QO0CD q r8,-(sp) ; address of ihd and ifd 
FB°AF 9F 00 pushab b*clicallback ; address of dummy call back routine 
51 odd 00 pushl 3; address of transfer address array 
00 B1 ,. ¥ calls #7,a(r1) ; call native mode code 
D 8ED 9 popl fp ; restore saved frame pointer 
04 . 3 ret 
4 ; map image only. return transfer address to caller 
oc 7} 61 00 i) é0s: mov l (r1),a@12(ap) 3 return address to caller 
6 01 00 1 movi 1,°6 : set status 


ret 
error from Simgact call - map to ie.nsf (no such file) 


3; save status over deallocate 
r7,r0 ; address of work page 
movl #5i2.r1 : length of work page 
bsbw deal locate ; deallocate it 
r0 3; restore status 


maperr: pushl 


; dummy cli call back routine 
Clicallback: 
clrl r0 3; return failure 
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cortoa Merge and call image 16-SEP=1984 02:16:39 YAX/VMS Macro V04-00 Page 1 L 
voe=000 Search mapped Search mapped image List ‘SasePal9be GasS8:45 LYMSLIS.cREICALLIMAGE.mar;1 2% | v0 


FD -Sbttl search_mapped Search mapped image List 


wr 
‘ 
i 


This routine Sperghes the mapped image list to 
determine if the image has already been mapped 


Inputs: 


rerrs = Descriptor of image file specification 
ri0 = Address of mapped image List head 


Outputs: 


r0 = true if already in memory 
if found, r7 = address of imgact work page 


search_mapped: 
movl address of first entry 

10$: branch if not found 

Length of string name 

save registers 

string match? 

; restore cept eters 

; branch if found 

next entry in List 

and continue searching 

return address of imgact work page 

success 


#*m<r2,r3> 

r0,9¢r?) 40,72, (r3) 
#°m<r2,rd> 

(r7),r7 

10$ 

4(r7),r7 

#1,r0 


r0 


63 52 00 


SN NNO AAA AOA AOAO 


~“ 
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owe 


failure 


— tt 1 3 2 QOOOOCOO 
DDI 3 1D TF FF Fr 
NO VOWOW— MWOVOVCTVTVTVVTVVTVVVVVC"0C0C0"0"8 
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CALL IMAGE Merge and call image 16-SEP-1984 02:16:39 VAX/VMS Macro Vv04-00 Pa 11 
vous000 add mapped Add to Sepped image List o7SF bn O84 2:48:22 VMSLIB.SRCJCALLIMAGE .MAR; 1 ts (8) 
-sbttl add_mapped Add to mapped image list 


Add the image just mapped to the mapped image List 
Inputs: 

re/r3 = Descriptor of image file specification 

r/ = Address of imgact work page 

ri0 = Address of mapped image list head 
Outputs: 


None 


add_mapped: 


loleleleleleleleleleleleleleleleleolelelelelelelelalel ele ala) 
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OF 4 pushr #*m<ri,r2,r3> ; save address, descriptor 
|; ee C movzwl r2,r : extract image name Length 
51 09 £8 8 addl ri ; compute List entry Length 
OO1A 0 B bsbw allocate ; allocate memory 
OE BA popr 7 vert ere r3> : restore address, descriptor 
60 ef dO mov l (r10), Cr 05 :; insert into List 
6A 9 dO mov r0, (ri0) 
04 a0 5 dO 6 mov l r7,4(r0) ; store address of imgact work page 
08 AO 32 90 A movb r2,8(r0) 3; store length of counted string 
5 BB E pusher #*m<ri,r2,r3,74,r5> i save pogtecers 
09 a0 «663—CsS5 28 0 MOVE v2. (r35 «965 i store s rine itself 
3€ BA ; poor #*m<ri,r2.r3.r4,r5> 3; restore registers 
rs 


CALL IMAGE Merge and call i 16-SEP-19 AX/VMS Macro Vv04-00 Page 1 
yoxeo00 al iscete Allocate  sirtust memory g-36F 71984 ve 38:22 VMSLIB.SRCICALLIMAGE .MAR; 1 ° 8) 
1¢ 1g -sbttl allocate Allocate virtual memory 
14 7: 
12 3 3 Allocate virtual memory 
1? ? : Inputs: 
16 i : rl = Number of bytes to allocate 
14 é ; Outputs: 
1 § : r0 = Address of allocated storage 
1? g : If error obtaining memory, a RET is performed with the status 
148 0 pilecete: 
1 DD O14 1 pushl ri ; Get Length onto stack 
—E DF O14A ¢ pushal rit, 3; Address of lw to put address 
AE 9F Q14C pushab ; Address of lw containing Length 
Q0000000'GF O02 FB O14F 4 calls ies qt AL ibsget. vm ; Obtain virtual memory 
50 9 8138 5 blbc 3; branch if error 
50 E D 0159 6 mova (sp)+, “ ; Return address of memory 
05 015C¢ 7 rsb 
04 015D 38 90$: ret 
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locate Deallocate virtual memory SEP 
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VMSLIB.SRCJCALLIMAGE .MAR; 1 (10) 


i : -sbttl deallocate Deallocate virtual memory 

42 ; 

tz 3 Deallocate virtual memory 

rf : Inputs: 

47 ; r0 = Address of menory to deallocate 

rt : rl = Number of bytes to deallocate 

31 ; Outputs: 

3g : If error detected, a RET is performed with the status 

55 deallocate: 

2$ mova r0,-(sp) ; put parameters on stack 

5 pushl 3p ; address of lw containing address 
58 pushab 8(sp) ; address of lw containing Length 
59 call sare, eeOtren ee ; deallocate virtual memory 

60 addl ’ 3B ; clear stac 

61 blbc r0,90$ ; branch if error 

86 rsb 

635 90$: ret ; return with status 


ne 


e and call image 
locate Deallocate virtual memory 


8158 36 -end 
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Symbol table -SEP- VMSLIB.SR SCALLIMAGE.MAR; 1 (12) S) 
: $! 
ACCVIO §? R $! 
ADD _MAPPED \¢ R $! 
ALLOCATE 1 R A( 
CLICALLBACK of R Ch 
DEALLOCATE R D) 
GE R E) 
LACSM_EXPREG = Fi 
_MERG = Fi 
IHASL_TFRADR1 = Fi 
IHDSL_LNKFLAGS = Fi 
IHD$SW_ACTIVOFF = 8 Fi 
LIBSADBR_ IMAGE RG Fi 
LIBSCALC_IMAGE QOOOOTF RG Fi 
L18 EE geeereee x Fi 
LIBSGET_Qm eeeenreee x Fi 
LIBSMAP~ IMAGE 00000010 RG 03 Fi 
LIST_HEAD 0000000 R b Fi 
MAPE QOOOES R 0 Fi 
SEARCH_MAPPED OOOOFD R 03 F] 
SS$_ACCVIO ttererer XY 03 Fl 
SYSSIMGACT teeeeree GX 03 G! 
SYSSIMGF IX eererere GX 03 ‘ 
peeesroene cesses ee + L) 
H Psect synopsis H 4 
RE 
PSECT name Allocation PSECT _No. Attributes S/ 
. . 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL mes NOEXE NORD NOWRT NOVEC BYTE 
SABSS 443 000 ¢ 0.) 0O1¢ 1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSDATA 4's 46 24 ( 4.) 8 ( §°} PIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
“LIBSCODE 00000175 (¢ 373.) ( ad PIC USR CON REL LCL SHR EXE RD WNOWRT NOVEC BYTE 
genre me ceowe sews ce tree woes 
! ;_Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢ .09 $7 
5° processing ! ‘ ? . 
Syabol iable sort if 214 6:5 
cess f table output 4 : “f 
Psect synopsis output :00. : . 
Cross-reference output 700. 3: 0 
Assembler run totals 39 704. : .6 


be york ing st Limit was 1950 pages. 

279 bytes, ( pages? of virtual memory were used to buffer the intermediate gore. 

whe were pages of syncet table geese al _ d to hold 129 non-local gre local symbols. 
source t nes were read in Pass 1 produc ing object records in Pass 

pages of virtual memory were used to define macros. 


Merge and call image 3 19360-1388 oe: 1: i yanives Be 


Oe ee o v04-00 o 18 
VAX=11 Macro Run Statistics -SEP=-1 VMSLIB. SRE SCALL IMAGE .MAR; “hd (12) 


beer ee mew ee wet wena sree rn ece wnt 


! Macro Library statistics ! 


ei oe 2 


Macro Library name Macros defined 
-8255SDUA SYS .0B 18 -MLB;1 
Hatton Hes SYSLI LET.MLB;2 
TOTALS (all Librar a 1 


227 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/DISA=TRACE/LIS=LIS$:CALLIMAGE/OBJ=OBJ$:CALLIMAGE MSRC$:CALLIMAGE/UPDATE=(ENHS$: CALLIMAGE) +EXECMLS/LIB 
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DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL. AND PROPRIETARY 
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